home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / sources.exe / SOURCES / HERSHEY / NEW.S < prev   
Encoding:
Text File  |  1993-03-23  |  1016 b   |  23 lines
  1. (load "samples/hershey.fsl")
  2. (install-user-driver "PS")
  3. (init-graph 'ps 7)
  4. (set-text-justify 'RIGHT 'BOTTOM)
  5. (out-hershey (read (open-input-string (cadr pcs-initial-arguments))) '(0 . 180))
  6. ;(out-hershey "\\rm2b@1 James Bond 007?" '(0 . 180))
  7. ;(out-hershey "\\rm2b@2 James Bond 007?" '(0 . 180))
  8. ;(out-hershey "\\rm2b@3 James Bond 007?" '(0 . 180))
  9. ;(out-hershey "\\rm2b@4 James Bond 007?" '(0 . 180))
  10. ;(out-hershey "\\rm2b@5 James Bond 007?" '(0 . 180))
  11. ;(out-hershey "\\rm2b@(4,1) James Bond 007?" '(0 . 180))
  12. ;(out-hershey "\\rm2b@(1,4) James Bond 007?" '(0 . 180))
  13. ;(out-hershey "\\rm2l@4 James Bond 007?" '(0 . 180))
  14. ;(out-hershey "\\sl2b@4 James Bond 007?" '(0 . 180))
  15. ;(out-hershey "\\ss2b@4 James Bond 007?" '(0 . 180))
  16. ;(out-hershey "\\an20@4 James Bond 007?" '(0 . 180))
  17. ;(out-hershey "\\go20@4 James Bond 007?" '(0 . 180))
  18. ;(out-hershey "\\oe20@4 James Bond 007?" '(0 . 180))
  19. ;(out-hershey "\\cy20@4 L.Q.Cnpa`web" '(0 . 180))
  20. ;(out-hershey "\\gr2b@4 Ledem acam" '(0 . 180))
  21. (exit)
  22.  
  23.